COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\|\\	Vector Graphics POX Macros
C00005 ENDMK
C⊗;
\|\\	Vector Graphics POX Macros
\
\⊂'200455;\⊂'010000;\⊂'1000002;\	it's good for you, don't ask me why !
\
\
\P\←=0;\→0\p\							clear reg 0
\
\
\∞Vneg[\¬=0;]\							Negate ac
\∞Vabs[\?Vneg;\!Vneg;]\					|ac| (hack !)
\
\∞Vkluj[\→Z\←x\-X\!Vabs;\/Z\+=2;\→Z]\				Kludge for ∂Y≠0
\
\8VI(x,y)[\							Invisible vector
\P\←=⊗x⊗;\→X\←=⊗y⊗;\→Y]\					Load args into XY
\
\8VV(x,y)[\							Visible vector
\P\←=⊗x⊗;\→x\←=⊗y⊗;\→y\←=1;\→Z\				Load xyZ regs
\←y\-Y\!Vabs;\?Vkluj;\						compute length
\oVector[VXYxyZ]\&VL←VL,00&Vector,00;\∂←Vector;\		draw vector
\←x\→X\←y\→Y\p]\						Move xy into XY
\
\8VD(x,y)[\							Dot
\P\←=⊗x⊗;\→X\-=2;\→x\						Load X, x←X-2
\←=⊗y⊗;\→Y\-=2;\→y\						Load Y, y←Y-2
\oVector[VxyXY=2;]\&VL←VL,00&Vector,00;\∂←Vector;\p]\		Draw 2 unit vector
\
\8VT(t)[\							Text
\P\oVtext[.⊗t⊗]\&VL←VL,00&Vtext,XY;\∂←Vtext;\p]\		splice in overlay
\
\∞VClear[\oVnull[V00000]\&VL←Vnull,00;\∂←Vnull;\		null vector overlay
\P\←0\→X\→Y\p]\						clear registers
\
\!VClear;\							Initially clear
\